COMMENT ⊗   VALID 00007 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	. DEVICE XGP
C00008 00003	.<< Print in //italics/ or boldface. >>
C00010 00004	.<< Print page headings on XGP (using boldface) before new page started. >>
C00012 00005	.<< Set line spacing to new value. >>
C00014 00006	.<< Start text justification. >>
C00015 00007	.<< Set up for body of text. >>
C00016 ENDMK
C⊗;
. DEVICE XGP;
.
.
. SIDES ← 1;
.<< Set up fonts and text responses for device selected. >>
.
.
.<< Turn on quote character ("α") and font switching character ("%"). >>
.
.TURN ON "α%";
.
.<< Declare Baskerville fonts, FIX25 for special characters, and SUP for footnote
.numbers. >>
.
.FONT 1 "FRACT2[T,LYN]";     <<modified BASL30>>
.FONT 2 "BASI30";
.FONT 3 "BASB30";
.FONT 4 "FIX25";
.FONT 5 "SUP";
. FONT 6 "DIA2.FNT[T,LYN]";
. FONT 7 "MTEXT.FNT[T,LYN]";
.
.
.<< a sharp, flat, and alla breve time signature.  >>
.
.AT "##" ⊂ "%7α#%*"; ⊃;
.AT "#b" ⊂ "%7αb%*"; ⊃;
.AT "#C" ⊂ "%7αC%*"; ⊃;
.AT "#≠" ⊂ "%7α≠%*"; ⊃;
.AT "#4" ⊂ "%64%*"; ⊃;
.AT "#≥" ⊂ "%6≥%*"; ⊃;
. 
.
.<< Put in ligatures in all three Baskerville fknts. >>
.
.AT "ffh" ⊂ IF 1 ≤ THISFONT ≤ 3 THEN "α∞" ELSE "αfαfαd"≠ ⊃;
.AT "ffi" ⊂ IF 1 ≤ THISFONT ≤ 3 THEL "α≠"  ELSE "αfαfαi"; ⊃;
.AT "ff"  ⊂ IF 1 ≤ THISFONT ≤ 3 THEN "α≥"  ELSE "αfαf"; ⊃;
.AT "fi"  ⊂ IF 1 ≤ THISFONT ≤ 3 THEN "α≡" ELSE "αfαi"; ⊃;
.AT "fl"  ⊂ IF 1 ≤ THISFOJT ≤ 3 THEN "α∨"  ELSE "αfαl"; ⊃;
.
.<< Provide Stanford ASCII characterpεA]←PACmC%YCEY∀AS\A	CgWKImSYY∀X@||4∀\~∀9β(@D≤JD@ D∧JDl@"v~(]β(@λ
D@ ↓∪@b8A)⊃%'
∨≥P@8@f↓)⊃≤DBh∧∀JTDA∃→'
@λ∧
Dv"v~∀9β(@D_@@ A%A)⊃%'
∨≥P@z@B↓)⊃≤DBd∧_JTDA∃→'
@λ∧Dv"v~∀9β(@DP@@ A%A)⊃%'
∨≥P@z@B↓)⊃≤@Bd∧PJTDA∃→'
@λ∧(Dv"v~∀9β(@DhD@ A%A)⊃%'
∨≥P@z@D↓)⊃≤@	∃D⊃Q∃)	∧*2N∃α⊂λi	XEl4RrεQ↓⊃Y↓A∧J→↓E↓aαR"M~~>:"q↓M¬"",d∧"+!0RR∩λYE≤*∧ !Z∪4α∪@1"KP*DλG Dαλ∩1Dε(πλ
I∩4qIyβ*⊂∞λ→P*$⊃e⊂⊃∩M↓∞RUλ⊂"f)QP⊃↓∞H≥Pλ]CE↔ jλ⊃∂⊃∧⊂$c⊂P∞⊂*∩$ic'S*⊂∞⊂P*$"Sα "%4α≡%*" ELSE "α≡α9 ⊃;
.
.<< Convert two succeqsive Baskerville hyphens into em dash. >>
.
.AT "--"  ⊂ IF 1 ≤ THISFONT≤ 3 TH@≤@λ∧
DA∃→'
@λ∧ZZDl@"v~(\∩∀\βaqβ≠MA↓9%ε≠?;O'∪W∂S~q↓↓yph)84Rqqbε"↓∩r∀ ↓αα%a∩α∩α↔2αβeaPRpQ%`hRaQ"cCDλ,≥y(∃.∧→~8,>X8
4Xpv9P∂∨αE↔βE↔ jλ⊃→0Aλλ⊂⊃αMαα0∀J)BD@"l~∀]βP@Du↑λ@ @D∀hλ	@$U&z∩α↔0hRh~Bα∪,T"↓α∧$S  L¬∩U≥Q⊂λMCE↔ jλ⊃∪pQλλ⊂⊃αMαα'%*a" ⊃≠
.AT "'e" ⊂ "¬4∧∧NJ)JD@"l~∀]βP@DO↑λ@ @D∀hλ	≥*S=		X4):
!↓	∨*⊃A↓∩)P⊂∩tU'*∩α∪0hRh~Bα∩zT"↓α∧$S  Ii*JTH∧&aQKP5∧∧X_ DαλλI&@↓0∩U_Q⊂λ]CE↔ jλ⊃02Qλλ⊂⊃∩Mαα`%*e" ⊃≠
.AT "`o" ⊂ "¬4∧¬@J)↑D@"l~∀]βP@EAjλ@ @D∀hλ↓*SU	X4):
!↓	≥8∧"↓α∧ ":∩α∪0hRh~Bα⊂L∀"↓α∧$S  A	*L∀H∧&aQKP5∧∧A→(DαλλI&@↓α∩U→Q⊂λMCE↔ jλ⊃α4Qλλ⊂⊃αMαα∧%*i" ⊃≠
.AT "∧o" ⊂ "¬4∧∧λJ)↑D@"l~∀]βP@D	jλ@ @D∀hλλ⊃*SU		X4):
!↓	3~⊃A↓⊂)P⊂∩DU&~∩α∪0hRh~Bα∩>D"↓α∧ S  Ji*NDH∧&aQKP5∧∧K⊂hDαλλA&@↓⊗∩U⊂β" ⊃l~∀]βP@DWελ@ @D∀hλ	-*RM	λπ0hRh~Bα∩\⊂λDαλλ@∩Mαα-%*a" ⊃l~∀]βP@D`*z⊃A↓⊂)P⊂∪αI*I@Q⊂λ@;
.AT ":e" ⊂ "¬4∧∧`)*S∃	λπ0hRh~Bα∪-∀"↓α∧$S  L¬∩U≡Q⊂λMCE↔ jλ⊃≥*Qλλ⊂⊃αMαα0∀J)*D@"βX4):
!↓	≡*⊃A↓∩)P⊂∩tU$*∩α∪0hRh~Bα∩⎇∀"↓α∧ S  Ii*M∀H∧&aQKP5∧∧Ii`⊃λλ⊂⊃↓	Q⊂λ]CE↔ jλ⊃∪n⊃λλ⊂⊃↓Q⊂λ]CE↔ jλ⊃∂q⊃λλ⊂⊃∩Mαα∨%*p" ⊃;
.AT "∨s" ⊂ "%4∧∧>J)bD@"l~∀]βP@D?tλ@ @D∀hλλ⎇*Si	X4):
!↓
nbB"u⊂A↓	+ λ	∃R⊃ELhQ:εQα∩fεJ∀zP≥j$ααα∩T@ 
*$ λα↔c"KH~λλVhIu↔(DαλλA&@KI*D⊂λ]FB↔ j  ¬7β≥→:D@ @@∃P⊂q∃)	↓	`_h%aPRpQ%cc@λ⊃~,|αyz nqebep∧A←L↓cSIKLAaKd↓aCOJ↓C]HAα≠?3Wns@~πXD∞z9→%D∂KC!%A"KD∧∀r1λZh↔hε↔c"KGGα⊂!b]⊂:x⊂≤0srP→90vrH0p∞d↓∞ <β∪3J4≠88n
βP3'\α se@1KGiK⊂AIKm%GJ\@x|~∧\4∀\A4
J&ε∀b∃αB:∀bα,J≡"QbαBε≡)BP≤LJIβXh%aPRr∧	t$∧HXe$∀z(D-∃xZd,tHXe$∀z(D-∃v⊗3;+1Q"bα	IT
∀{vβXh%`λ∧
∪t⊂IZQ⊃4Kv,∞aQKHλ
λ1q&
Y1∃∩zS04H{mmNaQKHλ
λ1q&	λ21r
Km(
≥CE↔⊂⊂∀ cbP⊃) fbH( cbF+`b*∩⊂+db⊃P( cQL$"dQd*⊂$∩c`≥FB↔⊂⊂⊂⊂i"`@∃"h"∪$g"iH~⊂*'H~YUFB↔⊂⊂*∩h∧@→
↓β%α↓⊃⊗ε$J2:	I∀d4h$
⊃hg1"K@⊂λ*$j&⊃P i"PP#'gU$g#@∪$g"P
Z≥FEα  COLS ← 1;
.  S@'9β⊂⊗∃¬yα:Vdal4)p∧α¬∧H_4*¬H[¬#XQ%bα∧βQ6
D∀⊂1hWc"KAQ@↓EO∂λ
∞Z;]∧
;He]=_;
≤|kh
}H¬EL-{→→L≤y%KDπOC"Ea"KP*DλKkd⊂"g*∀,P⊃↔HεE↔∧DεA↔∧S ij#∪e*_P↔P*$$Tc'g*∞FE↔∧J⊃∩Y"S*),RH⊂∪⊂&⊂ij#'S*_T]CE↔∧HNFE↔εB↔ j⊂λ	⊃⊂⊃e*),H⊃⊃εB↔∧@εB↔∧f Tj#'g∃→⊂'P∃$$ic∪dεT;
.	(α%3ENTRY%" & DASTFONT2)0⊗~(X∩"v4∀\~∀.<< Print page headings on XGP (using boldface) before new page started. >>
.
.
.
.RECURSIVE MACRO STANDARD TITLES
.	⊂
.	NOFILL;
.	TURN ON "←→{";
.	PREFACE 0;
.	INDENT 0,0,0;
.	PLACE HEADING;
.	SELECT 3;
.	!EH;
.	PLACE FOOTING;
.	!EF;
.	⊃;
.
.<< Set line spacing to new value. >>
.
.MACRO SPACES(NUMSPACES)
.	⊂
.	IF NUMSPACES > 0
.		THEN
.			START "SET NEW INTER- AND INTRA-PARAGRAPH SPACING"
.			BREAK;
.			PREFACE NUMSPACES;
.			SPACING NUMSPACES-1;
.			END "SET NEW INTER- AND INTRA-PARAGRAPH SPACING"
.		ELSE USERERR("SPACES argument not positive integer");
.	⊃;
.<< Start text justifacation. >>
.
.MACRO JUSTIFY
.	⊂
.	FILL;
.	ADJUST;
.	RETAIN3
.	⊃;
.
.4< Sat @U`AM←β⊃β|O∩ε↑dλ
←≥HπgA"KAQKHλ
	tU∩)@dε MAIJ~∀8~∀\@↓ ~⊗α+∩∧DX_DLTu¬Ot⊂1hT?J.aQKC"E@⊂)bf⊃aj⊂_Nβ
α.↓∃+'	%
2`,hQ0∩∧9zTe"λλ∀<*λj$l@(λλ@ TO )99;
. NE@1PA!β∂∀p4)p∧¬≥∧_8U~β'1PRr	→d$,j@λεWc"@